home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / joke / m_clock / source / tvtimer.bas < prev    next >
Encoding:
BASIC Source File  |  1995-02-16  |  5.5 KB  |  113 lines
  1. 40000 '********************************************************************
  2. 40010 '**     冗談ビデオソフト ｢ＭｕｌｔｉＣｌｏｃｋ｣  V1.1              **
  3. 40030 '**    テレビ局内時計の部分のみ         By ちくちくうにうに        **
  4. 40040 '********************************************************************
  5. 40050 SCREEN 1,0,0:SCREEN@ 1:CLS:LINE (0,0)-(319,239),PSET,[0,0,0,1],BF
  6. 40060 DIM FONT%((15*27)*10+(6*21))
  7. 40070 '          ↑0-9FONT  ↑":"FONT
  8. 40080 '            405Words    126Words
  9. 40090 '------------------------FONT MAKE---------------------------
  10. 40100 '1
  11. 40110 LINE (13*3,13*3)-(14*3-1,22*3-1),PSET,7,BF
  12. 40120 GET@A(9*3,13*3)-(14*3-1,22*3-1),FONT%,(405*1)
  13. 40130 '8
  14. 40140 FOR I=0 TO 2
  15. 40150   LINE(51*3+I,13*3+I)-((56*3-1)-I,(22*3-1)-I),PSET,7,B '□
  16. 40160 NEXT
  17. 40170 LINE (52*3,17*3)-(55*3-1,18*3-1),PSET,7,BF'－
  18. 40180 GET@A(51*3,13*3)-(56*3-1,22*3-1),FONT%,(405*8)
  19. 40190 '0
  20. 40200 PUT@A(3*3,13*3)-(8*3-1,22*3-1),FONT%,,,,,(405*8)
  21. 40210 LINE (4*3,17*3)-(7*3-1,18*3-1),PSET,[0,0,0,1],BF  '－を消す
  22. 40220 GET@A(3*3,13*3)-(8*3-1,22*3-1),FONT%
  23. 40230 '9
  24. 40240 PUT@A(57*3,13*3)-(62*3-1,22*3-1),FONT%,,,,,(405*8)
  25. 40250 LINE (57*3,18*3)-(61*3-1,22*3-1),PSET,[0,0,0,1],BF'└を消す
  26. 40260 GET@A(57*3,13*3)-(62*3-1,22*3-1),FONT%,(405*9)
  27. 40270 '6
  28. 40280 PUT@A(39*3,13*3)-(44*3-1,22*3-1),FONT%,,,,,(405*8)
  29. 40290 LINE (40*3,13*3)-(44*3-1,17*3-1),PSET,[0,0,0,1],BF'｜を消す
  30. 40300 GET@A(39*3,13*3)-(44*3-1,22*3-1),FONT%,(405*6)
  31. 40310 '7
  32. 40320 PUT@A(45*3,13*3)-(50*3-1,22*3-1),FONT%
  33. 40330 LINE (45*3,14*3)-(49*3-1,22*3-1),PSET,[0,0,0,1],BF'└を消す
  34. 40340 GET@A(45*3,13*3)-(50*3-1,22*3-1),FONT%,(405*7)
  35. 40350 '5
  36. 40360 PUT@A(33*3,13*3)-(38*3-1,22*3-1),FONT%,,,,,(405*6)
  37. 40370 LINE (33*3,18*3)-(34*3-1,21*3-1),PSET,[0,0,0,1],BF'｜を消す
  38. 40380 LINE (33*3,13*3)-(38*3-1,14*3-1),PSET,7,BF'－を追加
  39. 40390 GET@A(33*3,13*3)-(38*3-1,22*3-1),FONT%,(405*5)
  40. 40400 '4
  41. 40410 PUT@A(27*3,13*3)-(32*3-1,22*3-1),FONT%,,,,,(405*9)
  42. 40420 LINE (28*3,13*3)-(31*3-1,14*3-1),PSET,[0,0,0,1],BF'－を消す
  43. 40430 GET@A(27*3,13*3)-(32*3-1,22*3-1),FONT%,(405*4)
  44. 40440 '3
  45. 40450 PUT@A(21*3,13*3)-(26*3-1,22*3-1),FONT%,,,,,(405*8)
  46. 40460 LINE (21*3,14*3)-(22*3-1,17*3-1),PSET,[0,0,0,1],BF'｜を消す
  47. 40470 LINE (21*3,18*3)-(22*3-1,21*3-1),PSET,[0,0,0,1],BF'｜を消す
  48. 40480 GET@A(21*3,13*3)-(26*3-1,22*3-1),FONT%,(405*3)
  49. 40490 '2
  50. 40500 PUT@A(15*3,13*3)-(20*3-1,22*3-1),FONT%,,,,,(405*3)
  51. 40510 LINE (15*3,18*3)-(16*3-1,21*3-1),PSET,7,BF'｜を描く
  52. 40520 LINE (19*3,18*3)-(20*3-1,21*3-1),PSET,[0,0,0,1],BF'｜を消す
  53. 40530 GET@A(15*3,13*3)-(20*3-1,22*3-1),FONT%,(405*2)
  54. 40540 ':
  55. 40550 LINE (64*3,14*3)-(66*3-1,16*3-1),PSET,7,BF
  56. 40560 LINE (64*3,19*3)-(66*3-1,21*3-1),PSET,7,BF
  57. 40570 GET@A(64*3,14*3)-(66*3-1,21*3-1),FONT%,(405*10)
  58. 40580 '----------End Of Data Make
  59. 40590 LINE (0,13*3)-(319,22*3-1),PSET,[0,0,0,1],BF
  60. 40600 SCREEN 1,0,1:GOSUB *準備
  61. 40610 '
  62. 40620 '===================================================================
  63. 40630 '                         メインルーチン
  64. 40640 '===================================================================
  65. 40650 SIMPOSE ON
  66. 40660 *繰り返し
  67. 40670  OLDTIME$=TIME$
  68. 40680  WHILE OLDTIME$=TIME$:WEND
  69. 40690 '
  70. 40700  GOSUB *時刻表示
  71. 40710 '
  72. 40720 GOTO *繰り返し
  73. 40730 '
  74. 40740 '===================================================================
  75. 40750 '                時刻の表示をするサブルーチン
  76. 40760 '===================================================================
  77. 40770 *時刻表示
  78. 40780  OH1$=NH1$:OH2$=NH2$
  79. 40790  OM1$=NM1$:OM2$=NM2$
  80. 40800  OS1$=NS1$:OS2$=NS2$
  81. 40810  NH1$=LEFT$(TIME$,1) :NH2$=MID$(TIME$,2,1)
  82. 40820  NM1$=MID$(TIME$,4,1):NM2$=MID$(TIME$,5,1)
  83. 40830  NS1$=MID$(TIME$,7,1):NS2$=RIGHT$(TIME$,1)
  84. 40840 '
  85. 40850  IF OH1$<>NH1$ THEN                                                            PUT@A(6*3,4*3)-(11*3-1,13*3-1),FONT%,,,,,(405*(VAL(NH1$)))
  86. 40860  IF OH2$<>NH2$ THEN                                                            PUT@A(12*3,4*3)-(17*3-1,13*3-1),FONT%,,,,,(405*(VAL(NH2$)))
  87. 40870  IF OM1$<>NM1$ THEN                                                            PUT@A(23*3,4*3)-(28*3-1,13*3-1),FONT%,,,,,(405*(VAL(NM1$)))
  88. 40880  IF OM2$<>NM2$ THEN                                                            PUT@A(29*3,4*3)-(34*3-1,13*3-1),FONT%,,,,,(405*(VAL(NM2$)))
  89. 40890  IF OS1$<>NS1$ THEN                                                            PUT@A(40*3,4*3)-(45*3-1,13*3-1),FONT%,,,,,(405*(VAL(NS1$)))
  90. 40900  IF OS2$<>NS2$ THEN                                                            PUT@A(46*3,4*3)-(51*3-1,13*3-1),FONT%,,,,,(405*(VAL(NS2$)))
  91. 40910  RETURN
  92. 40920 '
  93. 40930 '===================================================================
  94. 40940 '                画面の準備をするサブルーチン
  95. 40950 '===================================================================
  96. 40960 *準備
  97. 40970  NH1$=LEFT$(TIME$,1) :NH2$=MID$(TIME$,2,1)
  98. 40980  NM1$=MID$(TIME$,4,1):NM2$=MID$(TIME$,5,1)
  99. 40990  NS1$=MID$(TIME$,7,1):NS2$=RIGHT$(TIME$,1)
  100. 41000 '
  101. 41010  PUT@A(6*3,4*3)-(11*3-1,13*3-1),FONT%,,,,,(405*(VAL(NH1$)))
  102. 41020  PUT@A(12*3,4*3)-(17*3-1,13*3-1),FONT%,,,,,(405*(VAL(NH2$)))
  103. 41030  PUT@A(19*3,5*3)-(21*3-1,12*3-1),FONT%,,,,,(405*10)
  104. 41040  PUT@A(23*3,4*3)-(28*3-1,13*3-1),FONT%,,,,,(405*(VAL(NM1$)))
  105. 41050  PUT@A(29*3,4*3)-(34*3-1,13*3-1),FONT%,,,,,(405*(VAL(NM2$)))
  106. 41060  PUT@A(36*3,5*3)-(38*3-1,12*3-1),FONT%,,,,,(405*10)
  107. 41070  PUT@A(40*3,4*3)-(45*3-1,13*3-1),FONT%,,,,,(405*(VAL(NS1$)))
  108. 41080  PUT@A(46*3,4*3)-(51*3-1,13*3-1),FONT%,,,,,(405*(VAL(NS2$)))
  109. 41090  MOUSE 0:ON MOUSE(4) GOSUB *MENU:MOUSE(4) ON
  110. 41100  RETURN
  111. 41110 *MENU
  112. 41120 ERASE FONT%:MOUSE 5:RUN "M_CLOCK.BAS"
  113.